home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / fb386 / tool / watanabe / short / peek.bas < prev    next >
BASIC Source File  |  1994-05-09  |  288b  |  11 lines
  1. 10 CLS:A=VAL("&H0")
  2. 20 PRINT USING "アドレス &  &   データ ###########";HEX$(A);I
  3. 30 PRINT A
  4. 40 PA=PAD(1):PT=PTRIG(1)
  5. 50 IF PA=1 AND A>0 THEN A=A-1
  6. 60 IF PA=5 THEN A=A+1
  7. 70 IF PT>0 THEN WAIT PT*10
  8. 80 IF PTRIG(1)=1 THEN M=0 ELSE M=2
  9. 100 LOCATE 0,0:T=TIME:I=PEEK(A,4)
  10. 110 GOTO 20
  11.